home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 5
/
Amiga Plus Sonderheft 1996 #5.iso
/
programme
/
raystrom_v1.2
/
examples
/
arexx
/
title1.ray
< prev
next >
Wrap
Text File
|
1987-01-15
|
663b
|
41 lines
/***************
* NAME: title.ray
* DESCRIPTION: This ARexx-programm renders the RayStorm title
* AUTHOR: Andreas Heumann
***************/
signal on error
options results
IF ~show('P','RAYSTORM') THEN DO
address COMMAND 'run >NIL: <NIL: /RayStorm'
address COMMAND WaitForPort RAYSTORM
END
address RAYSTORM
'OBJECTPATH /objects'
'SETSCREEN 160 128'
'SETCAMERA <0,300,-500> <0,0,0> <0,1,0> 56.25 45'
'SETWORLD [0,0,0] [30,30,30]'
'POINTLIGHT <0,0,-700>'
'LOADOBJ title_light.iob'
'LOADOBJ title.iob'
'STARTRENDER'
'SAVEPIC title1.iff'
'CLEANUP'
exit 0
error:
say "Error" rc "in line" sigl ":"
GETERRORSTR rc
say result
exit 0